################################################################################
## Group Identities and Parliamentary Debates: Replication package
## Fiva, Nedregård and Øien (2025)

# Description:

## Code to make Table A6: "Most divergent words across blocs"

################################################################################

library(xtable)
library(data.table)

# Directories (wd is set by master.R)
data.dir <-  "../data/3_model_output"
tab.dir  <- "../results/tables"

# Reading top50 divergent words

t <- fread(paste(data.dir, "di_trans_words_top50_bloc.csv", sep = "/"))


t <- t[, .(rank, 
           words_H, words_H_translated, n_words_H_by_H, 
           n_words_H_by_0, words_0, words_0_translated, n_words_0_by_H, 
           n_words_0_by_0)]


# saving to latex table

t <- xtable(t, method = c("compact"), booktabs = T)



print.xtable(t, only.contents = T, comment = F, hline.after = NULL, 
             include.colnames = F, include.rownames = F, 
             file = paste(tab.dir, "tabA6.tex", sep = "/"))





